home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aab.d64 / pop.dir+colors < prev    next >
Text File  |  2007-02-28  |  4KB  |  136 lines
  1. 0170 ╨╥╧├ POPOVER ├╠╧╙┼─
  2. 0180   //COPYRIGHT 1986 LEN LINDSAY
  3. 0190   // ORIGINAL BY LEN LINDSAY
  4. 0200   // REVISION BY
  5. 0210   ╔╬╘┼╥╥╒╨╘ //INTERRUPT OFF WHILE DOING INTERRUPT NOW
  6. 0220   ╒╙┼ GRAPHICS
  7. 0230   TEXTMODE:=INQ(13)
  8. 0240   GRAPHMODE:=INQ(7) //2=MULTI
  9. 0250   ╔╞ GRAPHMODE<2 ╘╚┼╬ GRAPHMODE:=1-INQ(14) //0=SPLIT//1=FULL HIRES
  10. 0260   ╘╥┴╨ ┼╙├-
  11. 0270   SETUP
  12. 0280   ╒╙┼ SYSTEM
  13. 0290   ─╔═ START'SCREEN$ ╧╞ 1505
  14. 0300   GETSCREEN(START'SCREEN$)
  15. 0310   ╔╞ ╬╧╘ TEXTMODE ╘╚┼╬ TEXTSCREEN
  16. 0320   CLEAR'KEYS
  17. 0330   POPUP
  18. 0340   SETSCREEN(START'SCREEN$)
  19. 0350   ╔╞ TEXTMODE ╘╚┼╬
  20. 0360     TEXTSCREEN
  21. 0370   ┼╠╙┼ 
  22. 0380     ╔╞ GRAPHMODE ╘╚┼╬
  23. 0390       FULLSCREEN
  24. 0400     ┼╠╙┼ 
  25. 0410       SPLITSCREEN
  26. 0420     ┼╬─╔╞ 
  27. 0430   ┼╬─╔╞ 
  28. 0440   CLEAR'KEYS // OPTIONAL LINE
  29. 0450   ╔╬╘┼╥╥╒╨╘ POPOVER
  30. 0460   //
  31. 0470   ╨╥╧├ POPUP 
  32. 0480     COL:=╥╬─(3,15) // <<<===START COL
  33. 0490     CURRENT'ROW:=╥╬─(2,12) // <<<=== START ROW
  34. 0500     // ROW IS A FUNCTION THAT STARTS AT CURRENT'ROW
  35. 0510     // USE SHIFT * TO DRAW MENU LINE
  36. 0520     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"░└└└└└└└└└└└└└└└«"
  37. 0530     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"  POPOVER MENU   "
  38. 0540     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"½└└└└└└└└└└└└└└└│"
  39. 0550     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" D = DIR         "
  40. 0560     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" P = PRG FILES   "
  41. 0565     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" S = SEQ FILES   "
  42. 0570     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" C = COLOR SET   "
  43. 0580     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"½└└└└└└└└└└└└└└└│"
  44. 0590     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" Q = QUIT        "
  45. 0600     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"½└└└└└└└└└└└└└└└│"
  46. 0610     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" OR <RETURN> KEY "
  47. 0620     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"¡└└└└└└└└└└└└└└└╜"
  48. 0630     ╥┼╨┼┴╘ 
  49. 0640       DONE'POPPING:=╘╥╒┼
  50. 0650       ├┴╙┼ ╦┼┘$ ╧╞
  51. 0660       ╫╚┼╬ "D","─"
  52. 0670         ╨┴╟┼
  53. 0680         ╨╥╔╬╘ "DIRECTORY DRIVE 0 - ALL FILES"
  54. 0690         ─╔╥
  55. 0700         READY
  56. 0710       ╫╚┼╬ "P","╨"
  57. 0720         ╨┴╟┼
  58. 0730         ╨╥╔╬╘ "DIRECTORY DRIVE 0 - PRG TYPE FILES"
  59. 0740         ─╔╥ "*=PRG"
  60. 0750         READY
  61. 0760       ╫╚┼╬ "S","╙"
  62. 0770         ╨┴╟┼
  63. 0780         ╨╥╔╬╘ "DIRECTORY DRIVE 0 - SEQ TYPE FILES"
  64. 0790         ─╔╥ "*=SEQ"
  65. 0800         READY
  66. 0810       ╫╚┼╬ "C","├"
  67. 0820         SET'COLORS
  68. 0830         START'SCREEN$(1):=├╚╥$(INQ(1))
  69. 0840         START'SCREEN$(2):=├╚╥$(INQ(2))
  70. 0850         START'SCREEN$(3):=├╚╥$(INQ(3))
  71. 0860       ╫╚┼╬ "Q","╤"
  72. 0870         ╘╥┴╨ ┼╙├+
  73. 0880         ┼╬─ ""147"╘HANK ┘OU."
  74. 0890       ╫╚┼╬ ""13"" //CARRIAGE RETURN
  75. 0900         ╥┼╘╒╥╬
  76. 0910       ╧╘╚┼╥╫╔╙┼ 
  77. 0920         DONE'POPPING:=╞┴╠╙┼
  78. 0930       ┼╬─├┴╙┼ 
  79. 0940     ╒╬╘╔╠ DONE'POPPING
  80. 0950   ┼╬─╨╥╧├ POPUP
  81. 0960   //
  82. 0970   ╨╥╧├ READY 
  83. 0980     ╔╬╨╒╘ ┴╘ 25,1,0: ""18"╨RESS ╥┼╘╒╥╬ WHEN READY": POPREADY$
  84. 0990     ╨┴╟┼
  85. 1000   ┼╬─╨╥╧├ READY
  86. 1010   //
  87. 1020   ╞╒╬├ ROW 
  88. 1030     CURRENT'ROW:+1
  89. 1040     ╥┼╘╒╥╬ CURRENT'ROW
  90. 1050   ┼╬─╞╒╬├ ROW
  91. 1060   //
  92. 1070   ╨╥╧├ CLEAR'KEYS 
  93. 1080     ╫╚╔╠┼ ╦┼┘$>"" ─╧ ╬╒╠╠
  94. 1090     DUMMYESC:=┼╙├ //CLEAR STOP KEY
  95. 1100   ┼╬─╨╥╧├ CLEAR'KEYS
  96. 1110   //
  97. 1120   ╨╥╧├ SETUP ├╠╧╙┼─
  98. 1130     // SETUP BY JESSE KNIGHT
  99. 1140     ╘╥┴╨ ┼╙├-
  100. 1150     ╞╧╥ X#:=0 ╘╧ 12 ─╧
  101. 1160       ╥┼┴─ BYTE#
  102. 1170       ╨╧╦┼ $C86A+X#,BYTE#
  103. 1180     ┼╬─╞╧╥ X#
  104. 1190     ╨╧╦┼ $C7E2,$6A
  105. 1200     ╨╧╦┼ $C7E3,$C8
  106. 1210     ╨╧╦┼ $4D,╨┼┼╦($4D) ┬╔╘╧╥ $20
  107. 1220     ─┴╘┴ $A5,$4D,$29,$08,$F0,$06,$A9
  108. 1230     ─┴╘┴ $04,$05,$4D,$85,$4D,$60
  109. 1240   ┼╬─╨╥╧├ SETUP
  110. 1250   //
  111. 1260   ╨╥╧├ SET'COLORS ├╠╧╙┼─
  112. 1270     ╒╙┼ SYSTEM
  113. 1280     ╒╙┼ GRAPHICS
  114. 1290     ╨┴╟┼
  115. 1300     ╠╧╧╨ 
  116. 1310       ╨╥╔╬╘ ┴╘ 3,1: ""18"SET COLORS NOW"
  117. 1320       ╨╥╔╬╘ ┴╘ 6,1: "PRESS "18" F1 "146" BORDER COLOR"
  118. 1330       ╨╥╔╬╘ ┴╘ 8,1: "PRESS "18" F3 "146" BACKGROUND COLOR"
  119. 1340       ╨╥╔╬╘ ┴╘ 10,1: "PRESS "18" F5 "146" TEXT COLOR"
  120. 1350       ╨╥╔╬╘ ┴╘ 13,1: "PRESS "18" F7 "146"  OR "18" Q "146" QUIT COLORS"
  121. 1360       ├┴╙┼ ╦┼┘$ ╧╞
  122. 1370       ╫╚┼╬ ""133""
  123. 1380         TEXTCOLORS((INQ(1)+1) ═╧─ 16,-1,-1)
  124. 1390       ╫╚┼╬ ""134""
  125. 1400         TEXTCOLORS(-1,(INQ(2)+1) ═╧─ 16,-1)
  126. 1410       ╫╚┼╬ ""135""
  127. 1420         TEXTCOLORS(-1,-1,(INQ(3)+1) ═╧─ 16)
  128. 1430       ╫╚┼╬ ""136"","Q","╤"
  129. 1440         ┼╪╔╘
  130. 1450       ╧╘╚┼╥╫╔╙┼ 
  131. 1460       ┼╬─├┴╙┼ 
  132. 1470     ┼╬─╠╧╧╨ 
  133. 1480   ┼╬─╨╥╧├ SET'COLORS
  134. 1490   //
  135. 1500 ┼╬─╨╥╧├ POPOVER
  136.